# get nessary params from a fitted model
# 
# Author: Guochun Shen
# Data:   2011-12-18
# Project:spatial statistic
# Email:  shenguochun@gmail.com
###############################################################################

get_params=function(fitted){
	params=numeric()
	if(any(class(fitted)=="kppm")){
		params=c(params,coef(fitted),fitted$mcfit$modelpar,"N"=fitted$X$n)
	}else if(any(class(fitted)=="ppm")){
		params=c(params,coef(fitted))
	}
	return(params)
}

